home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / animal.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  111 lines
  1. 4 PRINTCHR$(14)
  2. 5 PRINT"[147][158][193] N I M A L"
  3. 6 PRINT"             [184][184][184][184][184][184][184][184][184][184][184]"
  4. 7 PRINT:PRINT"         (BY [205]IKE [204]IEBERMAN)
  5. 8 [133]"    RIGHT$NSTRUCTIONS (Y/N)";I$
  6. 9 [139][200](I$,1)[178]"Y"[167][141]15000
  7. 10 V$[178]"AEIOU"
  8. 40 [153]""
  9. 50 [151]53280,13
  10. 52 [151]53281,16
  11. 100 [134]A$(100),Y(100),NX(100),Q$(100)
  12. 110 [143]:USE WITH BASIC4.0---[205]#33,"QUESTIONS"
  13. 115 [159] 33,8,5,"QUESTIONS,SEQ,R"
  14. 116 [159] 34,8,6,"ANSWERS,SEQ,R"
  15. 120 [143]:USE WITH BASIC4.0---[205]#34,"ANSWERS"
  16. 125 [159] 4,4
  17. 130 [129] I [178] 1 [164] 100
  18. 140 [132]33,Q$(I),Y(I),NX(I)
  19. 150 [139] [200](Q$(I),1)[178]"*" [167] 170
  20. 155 [152]4,Q$(I);[166]50[171][195](Q$(I)));Y(I),[166](Y(I)[177]1000)[172](3)[170]5);NX(I)
  21. 160 [130]I
  22. 165 [152]4:[152]4:[152]4
  23. 170 NQ[178]I[171]1
  24. 180 [160]33
  25. 190 [129] I [178] 1 [164] 100
  26. 200 [132]34,A$(I)
  27. 205 [152]4,I;[166]10);A$(I)
  28. 210 [139] [200](A$(I),1) [178] "*" [167]230
  29. 220 [130] I
  30. 230 NA[178]I[171]1
  31. 235 [160]4
  32. 240 [160]34
  33. 250 Q[178]1
  34. 260 [153]"LOAD("Q") "Q$(Q)
  35. 270 [133]"    ";  R$
  36. 280 [139] [200](R$,1)[178]"Y"[167] 320
  37. 290 LQ[178]Q : R$[178]"NO"
  38. 300 [139] NX(Q)[179]1000 [167] Q[178]NX(Q):[137]260
  39. 310 [139] NX(Q)[177]1000 [167] A[178]NX(Q)[171]1000:[137]380
  40. 320 LQ[178]Q:R$[178]"YES"
  41. 330 [139] Y(Q)[179]1000[167]Q[178]Y(Q):[137]260
  42. 340 [139] Y(Q)[177]1000[167]A[178]Y(Q)[171]1000:[137]380
  43. 350 [143]
  44. 360 [143] ------------------------
  45. 370 [143]
  46. 380 S$[178]A$(A):[141]10370
  47. 385 [153]:[153]:[153]"    ARE YOU ";VV$;A$(A)
  48. 390 [133]"   ";Z$
  49. 400 [139] [200](Z$,1)[178]"Y" [167] Z$[178]"YES":[137] 760
  50. 410 [153]"YOU WON! . . .  WHAT ARE YOU"
  51. 420 NA[178]NA[170]1:A$(NA[170]1)[178]"*"
  52. 430 [133]"    ";A$(NA)
  53. 431 [139][200](A$(NA),2)[178]"A "[167]A$(NA)[178][201](A$(NA),[195](A$(NA))[171]2)
  54. 432 [139][200](A$(NA),3)[178]"AN "[167]A$(NA)[178][201](A$(NA),[195](A$(NA))[171]3)
  55. 440 [153]"   WHAT QUESTION WOULD DIFFERENTIATE"
  56. 445 S$[178]A$(NA):[141]10370:V1$[178]VV$
  57. 446 S$[178]A$(A):[141]10370:V2$[178]VV$
  58. 450 [153]"  "V1$;A$(NA)" FROM "V2$;A$(A)"?"
  59. 460 NQ[178]NQ[170]1:Q$(NA[170]1)[178]"*"
  60. 470 [133]Q$(NQ)
  61. 480 [143]
  62. 490 [143]   CHANGE POINTERS
  63. 500 [139] R$[178]"YES" [167] [141] 570
  64. 510 [139] R$[178]"NO" [167] [141] 530
  65. 520 [137]610
  66. 530 NX(NQ)[178]NX(LQ)
  67. 540 Y(NQ)[178]NA[170]1000
  68. 550 NX(LQ)[178]NQ
  69. 560 [142]
  70. 570 Y(NQ)[178]NA[170]1000
  71. 580 NX(NQ)[178]1000[170]A
  72. 590 Y(LQ)[178]NQ
  73. 600 [142]
  74. 610 [143]:USE WITH BASIC4,0---[217]"QUESTIONS
  75. 615 OPEN15,8,15:PRINT#15,"S0:QUESTIONS":CLOSE15
  76. 616 OPEN15,8,15:PRINT#15,"S0:ANSWERS":CLOSE15
  77. 620 REM:USE WITH BASIC4.0---(null)"ANSWERS"
  78. 630 REM:USE WITH BASIC4.0---(null)#33,"QUESTIONS",W
  79. 631 OPEN 33,8,5,"QUESTIONS,SEQ,W"
  80. 640 C$=","
  81. 650 FORI=1TONQ
  82. 660 PRINT#33,Q$(I)C$Y(I)C$NX(I)
  83. 670 NEXTI
  84. 680 PRINT#33,"*",0,0
  85. 690 CLOSE33
  86. 700 REM:USE WITH BASIC4.0---(null)#34,"ANSWERS",W
  87. 701 OPEN 34,8,6,"ANSWERS,SEQ,W"
  88. 710 FORI=1TONA
  89. 720 PRINT#34,A$(I)
  90. 730 NEXTI
  91. 740 PRINT#34,"*"
  92. 750 CLOSE34
  93. 755 INPUT "PLAY AGAIN";W$
  94. 756 IFLEFT$(W$,1)="Y"THEN250
  95. 757 GOTO780
  96. 760 INPUT "I WON!   PLAY AGAIN";W$
  97. 770 IFLEFT$(W$,1)="Y"THEN250
  98. 780 END
  99. 10370 REM    CHECK FOR LEADING VOWEL
  100. 10380 VV$="A "
  101. 10381 FORCV=1TO5
  102. 10382 IFLEFT$(S$,1)=MID$(V$,CV,1)THENVV$="AN ":RETURN
  103. 10383 NEXTCV:RETURN
  104. 15000 PRINT"     [217]OU ARE TO PICK AN ANIMAL BUT DON'T TELL ME WHAT IT IS."
  105. 15100 PRINT"     [201]  WILL ASK YOU QUESTIONS WHICH YOU WILL ANSWER BY 'YES' OR 'NO'."
  106. 15200 PRINT"     [215]HEN [201] THINK [201] KNOW IT [201] WILL MAKE  A GUESS AS TO WHAT YOU ARE."
  107. 15300 PRINT"     [201]F [201] AM WRONG TELL ME WHAT YOU ARE."
  108. 15400 PRINT"PRESS A KEY TO CONTINUE"
  109. 15410 GET A$:IFA$=""THEN15410
  110. 15500 RETURN
  111.